home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / kabegami / kabe3.bas < prev    next >
BASIC Source File  |  1993-07-08  |  754b  |  23 lines
  1. 10 SCREEN@1 : CLS : RANDOMIZE TIME : PASTEL 50
  2. 20 '
  3. 30 COLOR 7,[200,200,200] : CLS : COLOR 7,0
  4. 40 FOR I=0 TO 100
  5. 50   X1=INT(RND*400)-80 : X2=X1+INT(RND*200)+1
  6. 60   Y1=INT(RND*300)-80 : Y2=Y1+INT(RND*200)+1
  7. 70   LINE(X1,Y1)-(X2,Y2),PASTEL,[RND*100+100,RND*100+75,RND*50+200],BF
  8. 80 NEXT
  9. 90 LINE(0,0)-(319,239),PASTEL,[50,50,50],BF,[50,50,50]
  10. 100 ON ERROR GOTO *ERROR
  11. 110 SAVE@"TMENU.TIF",(0,0)-(319,239)
  12. 120 *ERROR
  13. 130 CLS : BEEP
  14. 140 IF ERR=64 THEN
  15. 150 PRINT "同じディレクトリに「ＴＭＥＮＵ．ＴＩＦ」が存在しています。"
  16. 160 PRINT "削除するか、別のところへ移動させてください"
  17. 170 ENDIF
  18. 180 IF ERR=65 THEN
  19. 190 PRINT "ディスクの空き容量が足りません。"
  20. 200 PRINT "削除するか、別のところへ移動させてください"
  21. 210 ENDIF
  22. 220 WAIT 500 : END
  23.